100 REM INITIALISIERUNG
110 REM
120 PRINT"[147]"CHR$(8)
130 DIMAH$(99),AZ$(99),BU(99)
140 DIMBD$(350),BT$(350),BS$(350)
150 POKE53280,0:POKE53281,0:ER=58732
160 REM
170 REM HAUPTMENUE
180 REM
190 PRINTCHR$(19)
200 PRINT"[176][195][195][195][195][195][195][195][195][195][195] BANKING 64 [146][195][195][195][195][195][195][195][195][195][195][174]"
210 PRINT"[156] [146]                                [156] [146]"
220 PRINT"[158][169] [223][146][156][169][146][150][213][195][195][195][195][195][195][195][195][195][195][195][195][201][213][195][195][195][195][195][195][195][195][195][195][195][195][201][146][156][223][146][158][169] [223]"
230 PRINT" [156] [146][158] 1 [146][156] [146][150][194][155] KTO ANLAGE [146][150][194][194][146][155] AENDERUNG  [146][150][194][156] [158] 5 [156] [146]"
240 PRINT" [158][223] [146][169][156][223][146][150][202][195][195][195][195][195][195][195][195][195][195][195][195][203][202][195][195][195][195][195][195][195][195][195][195][195][195][203][146][156][169][146][158][223] [146][169][146]"
250 PRINT" [156] [146]                                [156] [146]"
260 PRINT" [156] [146]                                [156] [146]"
270 PRINT"[158][169] [223][146][156][169][146][150][213][195][195][195][195][195][195][195][195][195][195][195][195][201][213][195][195][195][195][195][195][195][195][195][195][195][195][201][146][156][223][146][158][169] [223]"
280 PRINT" [156] [146][158] 2 [146][156] [146][150][194][155] KTO RENAME [146][150][194][194][146][155] AUSWERTEN  [146][150][194][156] [158] 6 [156] [146]"
290 PRINT" [158][223] [146][169][156][223][146][150][202][195][195][195][195][195][195][195][195][195][195][195][195][203][202][195][195][195][195][195][195][195][195][195][195][195][195][203][146][156][169][146][158][223] [146][169][146]"
300 PRINT"[156] [146]                                [156] [146]"
310 PRINT"[156] [146]                                [156] [146]"
320 PRINT"[158][169] [223][146][156][169][146][150][213][195][195][195][195][195][195][195][195][195][195][195][195][201][213][195][195][195][195][195][195][195][195][195][195][195][195][201][146][156][223][146][158][169] [223]"
330 PRINT" [156] [146][158] 3 [146][156] [146][150][194][155] KTO LOESCH [146][150][194][194][146][155] DIRECTORY  [146][150][194][156] [158] 7 [156] [146]"
340 PRINT" [158][223] [146][169][156][223][146][150][202][195][195][195][195][195][195][195][195][195][195][195][195][203][202][195][195][195][195][195][195][195][195][195][195][195][195][203][146][156][169][146][158][223] [146][169][146]"
350 PRINT"[156] [146]                                [156] [146]"
360 PRINT"[156] [146]                                [156] [146]"
370 PRINT"[158][169] [223][146][156][169][146][150][213][195][195][195][195][195][195][195][195][195][195][195][195][201][213][195][195][195][195][195][195][195][195][195][195][195][195][201][146][156][223][146][158][169] [223]"
380 PRINT" [156] [146][158] 4 [146][156] [146][150][194][155] KTO BUCHEN [146][150][194][194][146][155] PRG QUITT  [146][150][194][156] [158] 8 [156] [146]"
390 PRINT" [158][223] [146][169][156][223][146][150][202][195][195][195][195][195][195][195][195][195][195][195][195][203][202][195][195][195][195][195][195][195][195][195][195][195][195][203][146][156][169][146][158][223] [146][169][146]"
400 PRINT"[156] [146]                                [156] [146]"
410 PRINT"[173][195][192][192][192][195][195][195] VON M.WUNDERLICH [146][195][192][192][192][195][195][195][189]"
420 POKE55457,1:POKE1185,67:POKE55657,1:POKE1385,67:POKE55857,1:POKE1585,67
430 POKE56057,1:POKE1785,67:POKE55494,1:POKE1222,67:POKE55694,1:POKE1422,67
440 POKE55894,1:POKE808,225:POKE1622,67:POKE56094,1:POKE1822,67
450 GETA$:IFA$=""THEN160
460 IFA$<CHR$(49)ORA$>CHR$(56)THEN160
470 FORG=0TO600STEP40:POKE55456+G,5:POKE1184+G,160:POKE55495+G,5
480 POKE1223+G,160:NEXTG
490 POKE1264,130:POKE1303,130:POKE1304,129:POKE1343,129
500 POKE1344,142:POKE1383,142:POKE1384,139:POKE1423,139
510 POKE1424,137:POKE1463,137:POKE1464,142:POKE1503,142
520 POKE1504,135:POKE1543,135:POKE1664,182:POKE1703,182
530 POKE1704,180:POKE1743,180
540 IFA$="8"THEN660
550 OPEN2,8,0:CLOSE2:IFST<>-128THEN580
560 PRINT"[158][147]  FLOPPY DISK IST NICHT EINGESCHALTET"
570 PRINTSPC(9)"[156] - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:CLR:GOTO100
580 OPEN15,8,15,"I0":INPUT#15,AA,AA$
590 CLOSE15:IFAA=0THEN610
600 PRINT"[147][158]BITTE DISK EINLEGEN & DRIVE SCHLIESSEN":GOTO570
610 IFA$="1"ORA$="7"THEN650
620 OPEN3,8,3,"BANKING 64-DATEI,S,R"
630 CLOSE3:GOSUB740
640 IFAA=62THENPRINT"[147][158]  BANKING 64 - DATEI NICHT GEFUNDEN":GOTO570
650 ONVAL(A$)GOTO1350,2230,2420,2650,3400,4610,1180
660 REM
670 REM PRG-QUITT
680 REM
690 PRINT"[147]":POKE214,12:SYSER
700 PRINT"[158]   RETURN TO BASIC (JA/NEIN)       [157][157][157][157][157][157]";:YZ=4:GOSUB910
710 IFY$="JA"THENSYS64738
720 IFY$="NEIN"THENCLR:GOTO100
730 GOTO690
740 REM
750 REM FEHLERKANAL
760 REM
770 OPEN15,8,15:INPUT#15,AA,AA$:CLOSE15
780 RETURN
790 REM
800 REM FUNKTIONSANZEIGE
810 REM
820 PRINT"[147][154]":POKE214,0:SYSER
830 IFAU=2THENPRINT"NR RENAME-KONTEN"
840 IFAU=3THENPRINT"NR SCRATCH-KONTEN"
850 IFAU=4THENPRINT"NR BUCH-KONTEN"
860 IFAU=5THENPRINT"NR BUCHUNG-AENDERN"
870 IFAU=6THENPRINT"NR KONT0-AUSWERTEN"
880 PRINTSPC(22)"[145]KONTOSTAND  BU'S"
890 PRINT"--------------------------------------":RETURN
900 REM
910 REM EINGABEROUTINE
920 REM
930 Z$="":Y$="":PRINT"[164][157]";
940 GETZ$:IFZ$=""THEN940
950 IFZ$=CHR$(13)ANDAU=90THEN1160
960 IFZ$=CHR$(13)ANDLEN(Y$)=0THEN940
970 IFZ$=CHR$(13)THEN1160
980 IFZ$=CHR$(20)ANDLEN(Y$)=0THEN940
990 IFZ$=CHR$(20)THENY$=LEFT$((Y$),LEN(Y$)-1):PRINT" [157][157][164][157]";
1000 IFZ$=CHR$(32)ANDLEN(Y$)=0THEN940
1010 IFZ$=CHR$(32)THEN1120
1020 IFZ$=CHR$(95)ANDLEN(Y$)=0THENY$="_":GOTO1160
1030 IFYZ=1ORYZ=4ORYZ=16ORYZ=20THEN1090
1040 IFZ$="V"ANDLEN(Y$)=0THENY$="V":IFYZ=2ORYZ=3THEN1170
1050 IFZ$="Z"ANDLEN(Y$)=0THENY$="Z":IFYZ=2ORYZ=3THEN1170
1060 IFZ$="-"ANDLEN(Y$)=0THENZ$="-":IFYZ=8THEN1120
1070 IFZ$="D"ANDLEN(Y$)=0THENZ$="D":IFYZ=2THEN1170
1080 IFZ$<CHR$(48)ORZ$>CHR$(57)THEN940
1090 IFZ$="+"ORZ$="-"ORZ$="."ORZ$="/"THEN1120
1100 IFZ$<CHR$(48)ORZ$>CHR$(90)THEN940
1110 IFZ$>CHR$(57)ANDZ$<CHR$(65)THEN940
1120 IFLEN(Y$)=YZTHEN940
1130 Y$=Y$+Z$:PRINTZ$;:IFLEN(Y$)=YZANDYZ=1THEN1170
1140 IFLEN(Y$)<YZTHENPRINT"[164][157]";
1150 GOTO940
1160 IFLEN(Y$)<YZTHENPRINT" ";
1170 POKE211,0:SYSER:RETURN
1180 REM
1190 REM DIRECTORY
1200 REM
1210 PRINT"[147]":POKE214,12:POKE211,15:SYSER:PRINT"DIRECTORY"
1220 RESTORE:AD=50002
1230 READWT:IFWT=-1THEN1310
1240 POKEAD,WT:AD=AD+1:GOTO1230
1250 DATA169,1,162,187,160,195,32,189,255,169,8,133,186,169,96,133,185,32,213
1260 DATA243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,32,215,170,160
1270 DATA5,132,2,32,165,255,133,251,164,2,136,208,244,32,165,255,164,144,208,41
1280 DATA166,251,32,205,189,169,32,32,210,255,32,165,255,166,144,208,24,170,240
1290 DATA6,32,210,255,76,150,195,169,13,32,210,255,32,225,255,240,5,160,3,76
1300 DATA121,195,32,171,255,76,66,246,36,0,0,0,0,-1
1310 PRINT"[147]":SYS50002
1320 PRINTSPC(28)"[145][156] * RETURN *"
1330 GETD$:IFD$=CHR$(13)THENCLR:GOTO100
1340 GOTO1330
1350 REM
1360 REM ANLEGEN
1370 REM
1380 BU=0:AR=0:AZ$="0":AH$=""
1390 PRINT"[147][156] ANLEGEN [146]   FREIE KTO:"99-AR"[156]   _ [146] MENUE"
1400 OPEN3,8,3,"BANKING 64-DATEI,S,R":CLOSE3:GOSUB740:IFAA=0THEN1450
1410 IFAA=62THENPOKE214,5:SYSER:PRINT"[158]    BANKING 64-DATEI WIRD ANGELEGT"
1420 IFAA=62THENOPEN3,8,3,"BANKING 64-DATEI,S,W":CLOSE3
1430 IFAA=62THENPOKE214,5:SYSER:PRINT"                                  "
1440 IFAA=62THEN1510
1450 OPEN3,8,3,"BANKING 64-DATEI,S,R"
1460 IFST=64THENCLOSE3:GOTO1510
1470 AR=AR+1:INPUT#3,AH$(AR),AZ$(AR),BU(AR)
1480 IFAR=90THENPRINT"[145]    "
1490 PRINT"[145] ANLEGEN [146][156]   FREIE KTO:"99-AR:POKE211,28:SYSER
1500 PRINT"[145] _ [146] MENUE":GOTO1460
1510 PRINT"[147][156] ANLEGEN [146]   FREIE KTO:"99-AR"[156]   _ [146] MENUE"
1520 IFAR=99THENPRINT"  MAX. ANLAGE VON 99 KONTEN ERREICHT"
1530 IFAR=99THENPRINT"  ENTWEDER KONTEN LOESCHEN ODER NEUE"
1540 IFAR=99THENPRINT"  BANKING 64 DISKETTE VERWENDEN !":GOTO570
1550 POKE214,5:SYSER:PRINT"[154]NAME DES KONTOS: [158]";
1560 YZ=16:GOSUB910
1570 IFY$="_"ANDAR=0THENOPEN15,8,15,"S:BANKING 64-DATEI":CLOSE15
1580 IFY$="_"THENCLR:GOTO100
1590 POKE214,8:SYSER:PRINT"KONTO & KONTOPLAN WIRD NEU ANGELEGT"
1600 OPEN3,8,3,Y$+",S,W":CLOSE3
1610 GOSUB740:IFAA=0THEN1650
1620 IFAA=63THENPRINT"[158][145]FLOPPY MELDET: KONTO BEREITS VORHANDEN":GOTO1640
1630 PRINT"[147][158]FLOPPY MELDET:"AA;AA$
1640 PRINTSPC(9)"[156] - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:GOTO550
1650 OPEN3,8,3,"BANKING 64-DATEI,S,A"
1660 PRINT#3,Y$:PRINT#3,AZ$:PRINT#3,BU
1670 CLOSE3:AR=AR+1:GOTO1510
1680 REM
1690 REM KONTENPLAN AUSGEBEN
1700 REM
1710 IFZK=29THENGOSUB790:AE=1:AF=1:ZK=0:GOTO1790
1720 PRINT"[147]":POKE214,12:SYSER
1730 AD=0:AE=1:AF=1:AO=0:AZ$="":AY=0
1740 OPEN3,8,3,"BANKING 64-DATEI,S,R"
1750 IFST=64THENCLOSE3:GOSUB790:POKE214,2:SYSER:GOTO1790
1760 AD=AD+1:PRINT"[145]      LOADING KONTENPLAN:";AD
1770 INPUT#3,AH$(AD),AZ$(AD),BU(AD)
1780 AY=AY+VAL(AZ$(AD)):GOTO1750
1790 MJ$=AZ$(AE)
1800 IFVAL(MJ$)>=0THENPRINT"[157]"AE
1810 IFVAL(MJ$)<0THENPRINT"[157][150]"AE
1820 POKE211,3:SYSER:PRINT"[145]"AH$(AE)
1830 MU=LEN(MJ$):GOSUB2050
1840 POKE211,18:SYSER:PRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)"  "BU(AE)
1850 IFAE=ADORAF=17THEN1870
1860 AE=AE+1:AF=AF+1:GOTO1790
1870 PRINT"[154]--------------------------------------"
1880 PRINT"ANZ-KTO:"AD" GESAMT"
1890 MJ$=STR$(AY):MU=LEN(MJ$):IFAY>=0THENMU=MU-1:MJ$=RIGHT$(MJ$,MU)
1900 GOSUB2050:POKE211,18:SYSER
1910 IFAY>=0THENPRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" HABEN"
1920 IFAY<0THENPRINT"[145][150]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" SOLL"
1930 PRINT
1940 PRINT"[158]WELCHE KONTO-NR.:     (V/Z/D)  _[146] MENUE"
1950 POKE211,18:SYSER:PRINT"[145]";
1960 YZ=2:GOSUB910:IFY$="_"THENCLR:GOTO100
1970 IFZ$="D"THEN5850
1980 IFY$="V"ANDAE=ADTHENPRINT"[145]":GOTO1940
1990 IFY$="V"THENAF=0:POKE214,2:SYSER:GOTO1860
2000 IFY$="Z"ANDAE<=17THENPRINT"[145]":GOTO1940
2010 IFY$="Z"THENAE=AE-16-AF:AF=1:IFAE<1THENAE=1
2020 IFY$="Z"THENGOSUB790:GOTO1790
2030 IFVAL(Y$)<1ORVAL(Y$)>ADTHENPRINT"[145]":GOTO1940
2040 RETURN
2050 IFMU=13THENLA$=MJ$
2060 IFMU=12THENLA$=""+MJ$
2070 IFMU=11THENLA$=""+MJ$
2080 IFMU=10THENLA$=""+MJ$
2090 IFMU=9THENLA$=""+MJ$
2100 IFMU=8THENLA$=""+MJ$
2110 IFMU=7THENLA$=""+MJ$
2120 IFMU=6THENLA$=""+MJ$
2130 IFMU=5THENLA$=""+MJ$
2140 IFMU=4THENLA$=""+MJ$
2150 IFMU=1THENLA$="00"+MJ$
2160 IFLEFT$(MJ$,1)="-"THEN2200
2170 IFMU=3THENLA$=""+MJ$
2180 IFMU=2THENLA$="0"+MJ$
2190 GOTO2220
2200 IFMU=2THENLA$="-00"+RIGHT$(MJ$,1)
2210 IFMU=3THENLA$="-0"+RIGHT$(MJ$,2)
2220 RETURN
2230 REM
2240 REM RENAME
2250 REM
2260 AH$="":AJ$="":AT$="":AH=0
2270 AJ=0:AU=2:GOSUB1680
2280 PRINT"[147] RENAME [146]          [129] _ [146] BERICHTIGUNG"
2290 AH=VAL(Y$):AJ$=AH$(AH)
2300 PRINT"[156]RENAME KONTO :  ";AH$(AH)
2310 PRINT"[154]NEW KTO-NAME :  ";
2320 YZ=16:GOSUB910:IFY$="_"THENZK=29:GOTO2230
2330 AT$=Y$:AH$(AH)=Y$
2340 OPEN3,8,15,"R:"+AT$+"="+AJ$:CLOSE3
2350 GOSUB740:IFAA=0THEN2380
2360 PRINT"[158]FLOPPY DRIVE MELDET:"AA;AA$
2370 PRINTSPC(9)" - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:GOTO550
2380 PRINT"KONTO & KONTENPLAN WIRD UMGESCHRIEBEN  "
2390 OPEN3,8,3,"@:BANKING 64-DATEI,S,W"
2400 FORAJ=1TOAD:PRINT#3,AH$(AJ):PRINT#3,AZ$(AJ):PRINT#3,BU(AJ):NEXTAJ
2410 CLOSE3:GOTO2230
2420 REM
2430 REM SCRATCH
2440 REM
2450 AU=3:GOSUB1680
2460 AH$="":AK$="":AJ=0:AH=0
2470 PRINT"[147] LOESCHEN [146]":AH=VAL(Y$)
2480 PRINT"[154]SCRATCH KONTO : ";AH$(AH)
2490 PRINT"ANZ-BUCHUNGEN :";BU(AH)
2500 PRINT"RICHTIG (JA/NEIN)          [157][157][157][157][157][157][157][157]";:YZ=4:GOSUB910
2510 IFY$="JA"THEN2540
2520 IFY$="NEIN"THENZK=29:GOTO2420
2530 PRINT"[145][145]":GOTO2500
2540 OPEN3,8,15,"S:"+AH$(AH):CLOSE3
2550 GOSUB740:IFAA=0THEN2580
2560 PRINT"[158]FLOPPY MELDET:"AA;AA$
2570 PRINTSPC(9)" - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:GOTO550
2580 PRINT"SCRATCH KONTO & EINTRAG IM KONTENPLAN  ":AH$(AH)=""
2590 IFAD=1THENOPEN15,8,15,"S:BANKING 64-DATEI":CLOSE15:CLR:GOTO100
2600 OPEN3,8,3,"@:BANKING 64-DATEI,S,W"
2610 FORAJ=1TOAD:IFAH$(AJ)=""THEN2630
2620 PRINT#3,AH$(AJ):PRINT#3,AZ$(AJ):PRINT#3,BU(AJ)
2630 NEXTAJ
2640 CLOSE3:GOTO2420
2650 REM
2660 REM BUCHEN
2670 REM
2680 AU=4:GOSUB1680
2690 PO=0:AH=0:BB=0:BS=0:CC=0:BD$="":BT$="":BS$=""
2700 AH=VAL(Y$):BB$=AZ$(AH)
2710 PRINT"[147][156]";AH$(AH):POKE211,22:SYSER:PRINT"[145]BUCHUNG-NR.:"BU(AH)+BB+1
2720 BZ=BU(AH)+BB
2730 PRINT"---------------------------------------"
2740 IFBZ=350THENPRINT" MAX. ANLAGE VON 350 BUCHUNGEN ERREICHT"
2750 IFBZ=350THENPRINT" ENTWEDER BUCHUNGEN LOESCHEN ODER NEUES"
2760 IFBZ=350THENPRINT" KONTO MIT VORSALDO AUF DISK ANLEGEN !!":GOTO570
2770 BB=BB+1:POKE214,4:SYSER
2780 PRINT"KONTOSTAND ALT :":MJ$=BB$:MU=LEN(MJ$):GOSUB2050:POKE211,21:SYSER
2790 IFVAL(BB$)>=0THENPRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" DM"
2800 IFVAL(BB$)<0THENPRINT"[145][150]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" DM"
2810 POKE214,7:SYSER
2820 PRINT"[154]DATUM (TTMMJJ) :             _[146] ENDE":POKE211,17:SYSER:PRINT"[145][158]";
2830 YZ=6:GOSUB910
2840 IFY$="_"THENBB=BB-1:GOTO3230
2850 IFLEN(Y$)<6THEN2810
2860 IFVAL(LEFT$(Y$,2))<1ORVAL(LEFT$(Y$,2))>31THEN2810
2870 IFVAL(LEFT$(Y$,2))>29ANDVAL(MID$(Y$,3,2))=2THEN2810
2880 IFVAL(RIGHT$(Y$,2))<86ORVAL(RIGHT$(Y$,2))>99THEN2810
2890 IFVAL(MID$(Y$,3,2))<1ORVAL(MID$(Y$,3,2))>12THEN2810
2900 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=4THEN2810
2910 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=6THEN2810
2920 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=9THEN2810
2930 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=11THEN2810
2940 POKE214,7:POKE211,17:SYSER
2950 PRINTLEFT$(Y$,2);".";MID$(Y$,3,2)".";RIGHT$(Y$,2);"          ":BD$(BB)=Y$
2960 POKE214,9:SYSER
2970 PRINT"[154]BUCHUNGSTEXT   : [158]";
2980 YZ=20:GOSUB910:IFY$="_"THEN2960
2990 BT$(BB)=Y$
3000 POKE214,11:SYSER
3010 PRINT"[154]BUCHUNGSBETRAG : [158]";
3020 YZ=8:GOSUB910:IFY$="-"THEN3000
3030 IFVAL(Y$)=0THEN3000
3040 POKE214,11:POKE211,17:SYSER:PRINT"        ":MJ$=Y$:MU=LEN(MJ$):GOSUB2050
3050 IFVAL(Y$)<0THENPRINT"[150]"
3060 IFVAL(Y$)>=0THENPRINT""
3070 POKE214,11:POKE211,21:SYSER
3080 PRINTLEFT$(LA$,11)"."RIGHT$(LA$,2)" DM"
3090 BS$(BB)=Y$:SU=VAL(Y$)+VAL(BB$)
3100 MJ$=STR$(SU):MU=LEN(MJ$):IFSU>=0THENMU=MU-1:MJ$=RIGHT$(MJ$,MU)
3110 GOSUB2050:POKE214,14:SYSER
3120 PRINT"KONTOSTAND NEU :"
3130 POKE211,21:SYSER
3140 IFVAL(MJ$)>=0THENPRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" DM"
3150 IFVAL(MJ$)<0THENPRINT"[145][150]"LEFT$(LA$,11)"."RIGHT$(LA$,2)" DM"
3160 PRINT"[156]---------------------------------------"
3170 PRINT"       - RICHTIG GEBUCHT (J/N) -":
3180 BW$="":GETBW$
3190 IFBW$="J"THENPRINT"[158]  ES SIND NOCH"350-BU(AH)-BB"BUCHUNGEN MOEGLICH"
3200 IFBW$="J"THENFORX=1TO2000:NEXTX:BB$=MJ$:GOTO2710
3210 IFBW$="N"THENBB=BB-1:GOTO2710
3220 GOTO3180
3230 IFBB=0THENZK=29:GOTO2650
3240 PRINT"[156]DATEN WERDEN AN FLOPPY DISK UEBERTRAGEN"
3250 OPEN3,8,3,AH$(AH)+",S,A":CLOSE3
3260 GOSUB740:IFAA=0THEN3330
3270 PRINT"[147]BITTE DISK EINLEGEN & DRIVE SCHLIESSEN"
3280 PRINTSPC(9)" - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:CLOSE3
3290 OPEN15,8,15,"I0":INPUT#15,AA,AA$
3300 CLOSE15:IFAA=0THEN2710
3310 PRINT"[147]BITTE DISK EINLEGEN & DRIVE SCHLIESSEN"
3320 PRINTSPC(9)" - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:CLOSE3:GOTO2710
3330 OPEN3,8,3,AH$(AH)+",S,A"
3340 FORCC=1TOBB:PRINT#3,BD$(CC):PRINT#3,BT$(CC):PRINT#3,BS$(CC):NEXTCC:CLOSE3
3350 AZ$(AH)=BB$:BU(AH)=BU(AH)+BB
3360 PRINT"BILANZ + ANZAHL BUCHUNGEN WIRD GEPRUEFT"
3370 OPEN3,8,3,"@:BANKING 64-DATEI,S,W"
3380 FORAJ=1TOAD:PRINT#3,AH$(AJ):PRINT#3,AZ$(AJ):PRINT#3,BU(AJ):NEXTAJ:CLOSE3
3390 GOTO2650
3400 REM
3410 REM BUCHUNG AENDERN/LOESCHEN
3420 REM
3430 AU=5:GOSUB1680
3440 AW=0:ZQ=0:FF=0:GG=1
3450 PRINT"[147]":POKE214,8:POKE211,8:SYSER:AH=VAL(Y$)
3460 PRINT"[156]";AH$(AH)
3470 IFBU(AH)=0THENPRINT"KEINE BUCHUNG AUF DIESEM KONTO VORHANDEN"
3480 IFBU(AH)=0THENFORX=1TO2000:NEXTX:ZK=29:GOTO3400
3490 OPEN3,8,3,AH$(AH)+",S,R"
3500 IFST=64THENCLOSE3:GOTO3540
3510 FF=FF+1:POKE214,11:POKE211,8:SYSER:PRINT"[145]LOADING BUCHUNG:";FF
3520 INPUT#3,BD$(FF):INPUT#3,BT$(FF)
3530 INPUT#3,BS$(FF):GOTO3500
3540 AP=1:GG=1
3550 PRINT"[147][154]";AH$(AH);"  "FF"BUCHUNGEN"
3560 PRINT"NR. BUCHUNGSTEXT     BETRAEGE  TT.MM.JJ"
3570 PRINT"---------------------------------------"
3580 PRINT"[154][157]"GG:IFBT$(GG)=""THEN3650
3590 POKE211,4:SYSER:PRINT"[145]"LEFT$(BT$(GG),12)
3600 MJ$=BS$(GG):MU=LEN(MJ$):GOSUB2050
3610 POKE211,15:SYSER
3620 PRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)
3630 POKE211,31:SYSER:PRINT"[145]"LEFT$(BD$(GG),2)"."MID$(BD$(GG),3,2)".";
3640 PRINTRIGHT$(BD$(GG),2)
3650 IFGG=FFTHEN3680
3660 IFAP=10THEN3680
3670 GG=GG+1:AP=AP+1:GOTO3580
3680 PRINT"[154]---------------------------------------"
3690 PRINT"[154]WELCHEN SATZ AENDERN:     (V/Z)  _[146] ENDE"
3700 POKE211,22:SYSER:PRINT"[145]";:YZ=3:GOSUB910
3710 IFY$="_"ANDZQ=7THEN4430
3720 IFY$="_"THENCLR:GOTO100
3730 IFY$="V"ANDGG=FFTHENPRINT"[145]":GOTO3690
3740 IFY$="Z"ANDGG<=10THENPRINT"[145]":GOTO3690
3750 IFY$="V"THENAP=1:GG=GG+1:GOTO3550
3760 IFY$="Z"THENGG=GG-9-AP:AP=1:IFGG<1THENGG=1
3770 IFY$="Z"THEN3550
3780 IFVAL(Y$)=0ORVAL(Y$)>FFTHENPRINT"[145]":GOTO3690
3790 AW=VAL(Y$):BH=VAL(BS$(AW))/100
3800 IFBD$(AW)=""THEN3690
3810 PQ=VAL(RIGHT$(Y$,1)):IFPQ=0THENPQ=10
3820 IFAW>GGTHENPRINT"[145]":GOTO3690
3830 IFAW<GG-AP+1THENPRINT"[145]":GOTO3690
3840 QA=55415+(PQ*40)
3850 FORIR=1TO40:POKEQA+IR,7:NEXT
3860 PRINT"[156]BUCHUNG AENDERN/LOESCHEN  (A/L)  _[146] NEIN"
3870 BW$="":GETBW$:IFBW$=""THEN3870
3880 IFBW$="A"THEN3980
3890 IFBW$="L"THEN3920
3900 IFBW$="_"THENGG=GG-AP+1:AP=1:GOTO3550
3910 GOTO3870
3920 PRINT"[129][145]BUCHUNG WIRKLICH LOESCHEN ?  (J/N)     "
3930 BW$="":GETBW$:IFBW$=""THEN3930
3940 IFBW$="J"THENZQ=7:GOTO3970
3950 IFBW$="N"THENGG=GG-AP+1:AP=1:GOTO3550
3960 GOTO3930
3970 BD$(AW)="":BT$(AW)="":BS$(AW)="":GOTO4420
3980 POKE214,17:SYSER:PRINT"DATUM : ";LEFT$(BD$(AW),2)"."MID$(BD$(AW),3,2)".";
3990 PRINTRIGHT$(BD$(AW),2)
4000 POKE211,30:SYSER:PRINT"[145](J/N)"
4010 POKE214,19:SYSER:PRINT"TEXT  : ";BT$(AW)
4020 POKE211,30:SYSER:PRINT"[145](J/N)"
4030 POKE214,21:SYSER:PRINT"SUMME : ";:IFBH<0THENPRINT;BH
4040 IFBH>=0THENPRINT"[157]";BH
4050 POKE214,21:POKE211,30:SYSER:PRINT"(J/N)"
4060 POKE214,17:POKE211,36:SYSER:PRINT;
4070 YZ=1:GOSUB910:IFY$="J"THEN4100
4080 IFY$="N"THEN4250
4090 POKE214,17:POKE211,30:SYSER:PRINT"(J/N)  ":GOTO4060
4100 POKE214,17:POKE211,8:SYSER:ZQ=7
4110 PRINT"        ":POKE211,8:SYSER:PRINT"[145]";
4120 YZ=6:GOSUB910
4130 IFLEN(Y$)<6THEN4100
4140 IFVAL(LEFT$(Y$,2))<1ORVAL(LEFT$(Y$,2))>31THEN4100
4150 IFVAL(LEFT$(Y$,2))>29ANDVAL(MID$(Y$,3,2))=2THEN4100
4160 IFVAL(RIGHT$(Y$,2))<86ORVAL(RIGHT$(Y$,2))>99THEN4100
4170 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=6THEN4100
4180 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=9THEN4100
4190 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=11THEN4100
4200 IFVAL(LEFT$(Y$,2))>30ANDVAL(MID$(Y$,3,2))=4THEN4100
4210 IFVAL(MID$(Y$,3,2))<1ORVAL(MID$(Y$,3,2))>12THEN4100
4220 POKE214,17:SYSER:PRINT"DATUM : ";LEFT$(Y$,2)"."MID$(Y$,3,2)".";
4230 PRINTRIGHT$(Y$,2)
4240 BD$(AW)=Y$
4250 POKE214,19:POKE211,36:SYSER:PRINT;
4260 YZ=1:GOSUB910:IFY$="J"THEN4290
4270 IFY$="N"THEN4320
4280 POKE214,19:POKE211,30:SYSER:PRINT"(J/N)  ":GOTO4250
4290 POKE214,19:POKE211,8:SYSER:ZQ=7
4300 PRINT"                    ":POKE211,8:SYSER:PRINT"[145]";
4310 YZ=20:GOSUB910:BT$(AW)=Y$
4320 POKE214,21:POKE211,36:SYSER:PRINT;
4330 YZ=1:GOSUB910:IFY$="N"THEN4420
4340 IFY$="J"THEN4360
4350 POKE214,21:POKE211,30:SYSER:PRINT"(J/N)  ":GOTO4320
4360 POKE214,21:POKE211,7:SYSER:ZQ=7
4370 PRINT"          [157][157][157][157][157][157][157][157][157]";:YZ=8
4380 GOSUB910
4390 IFY$="-"THEN4360
4400 IFVAL(Y$)=0THEN4360
4410 BS$(AW)=Y$
4420 GG=GG-AP+1:AP=1:GOTO3550
4430 OPEN3,8,3,"BANKING 64-DATEI,S,R":CLOSE3:GOSUB740:IFAA=0THEN4460
4440 PRINT"FLOPPY MELDET:"AA;AA$
4450 PRINTSPC(9)" - TASTE DRUECKEN - ":WAIT198,1:POKE198,0:GOTO4420
4460 PRINT"[156]VERAENDERTES KONTO WIRD GESPEICHERT !!!"
4470 OPEN3,8,3,"@:"+AH$(AH)+",S,W"
4480 FORWU=1TOFF:IFBD$(WU)=""THEN4500
4490 PRINT#3,BD$(WU):PRINT#3,BT$(WU):PRINT#3,BS$(WU)
4500 NEXTWU
4510 CLOSE3
4520 PRINT"[129]BILANZ + ANZAHL BUCHUNGEN WIRD GEPRUEFT":BM=0:BS=0:BN$="":KI=0
4530 FORWM=1TOFF:IFBD$(WM)=""THEN4550
4540 BS=BS+VAL(BS$(WM)):BM=BM+1
4550 NEXTWM
4560 BN$=STR$(BS):KI=LEN(BN$):IFBS>=0THENKI=KI-1:BN$=RIGHT$(BN$,KI)
4570 BU(AH)=BM:AZ$(AH)=BN$
4580 OPEN3,8,3,"@:BANKING 64-DATEI,S,W"
4590 FORAJ=1TOAD:PRINT#3,AH$(AJ):PRINT#3,AZ$(AJ):PRINT#3,BU(AJ):NEXTAJ:CLOSE3
4600 CLR:GOTO100
4610 REM
4620 REM AUSWERTUNG
4630 REM
4640 AU=6:GOSUB1680
4650 GA=0:GB=0:GC=0:GD=0:GE=0:GG=0:GS=0:GT=0:FF=0:AH=VAL(Y$)
4660 GF=0:GH=0:RA=0:RB=0:GZ=0:WW=0
4670 PRINT"[147][156]":POKE214,8:POKE211,8:SYSER:PRINTAH$(AH)
4680 IFBU(AH)=0THENPRINT"KEINE BUCHUNG AUF DIESEM KONTO VORHANDEN"
4690 IFBU(AH)=0THENFORX=1TO2000:NEXTX:ZK=29:GOTO4610
4700 OPEN3,8,3,AH$(AH)+",S,R"
4710 IFST=64THENCLOSE3:GOTO4750
4720 FF=FF+1:POKE214,11:POKE211,8:SYSER:PRINT"[145]LOADING BUCHUNG:";FF
4730 INPUT#3,BD$(FF):INPUT#3,BT$(FF)
4740 INPUT#3,BS$(FF):GOTO4710
4750 PRINT"[147][156]AUSWERTUNG ";AH$(AH)
4760 PRINT"[129]TAG..... :"
4770 PRINT"MONAT... :"
4780 PRINT"JAHR.... :"
4790 PRINT"TEXT.... :"
4800 PRINT"BETRAG < :"
4810 PRINT"BETRAG > :"
4820 PRINT"BETRAG = :"
4830 PRINT"TASTE 'RETURN' BEWIRKT KEINE SELECTION"
4840 PRINT"--------------------------------------":AU=90:DR=0:QB=0
4850 PRINTSPC(15)"_[146] MENUE"
4860 POKE214,4:POKE211,11:SYSER:YZ=2:GOSUB910
4870 IFZ$="_"THENCLR:GOTO100
4880 IFZ$=CHR$(13)ANDLEN(Y$)=0THEN4920
4890 IFVAL(Y$)<1ORVAL(Y$)>31THENPOKE214,4:POKE211,11:PRINT"  ":GOTO4860
4900 IFLEN(Y$)<2THENPOKE214,4:POKE211,11:PRINT"  ":GOTO4860
4910 GA$=Y$:GA=5
4920 POKE214,6:POKE211,11:SYSER:YZ=2:GOSUB910:IFZ$=CHR$(13)ANDLEN(Y$)=0THEN4960
4930 IFVAL(Y$)<1ORVAL(Y$)>12THENPOKE214,6:POKE211,11:PRINT"  ":GOTO4920
4940 IFLEN(Y$)=1THENPOKE214,6:POKE211,11:PRINT"  ":GOTO4920
4950 GB$=Y$:GB=5
4960 POKE214,8:POKE211,11:SYSER:YZ=2:GOSUB910:IFZ$=CHR$(13)ANDLEN(Y$)=0THEN5000
4970 IFVAL(Y$)<86ORVAL(Y$)>99THENPOKE214,8:POKE211,11:PRINT"  ":GOTO4960
4980 IFLEN(Y$)=1THENPOKE214,8:POKE211,11:PRINT"  ":GOTO4960
4990 GC$=Y$:GC=5
5000 POKE214,10:POKE211,11:SYSER
5010 YZ=20:GOSUB910:IFZ$=CHR$(13)ANDLEN(Y$)=0THEN5030
5020 GT$=Y$:GT=5:GD=LEN(Y$)
5030 POKE214,12:POKE211,11:SYSER:YZ=8:GOSUB910:IFY$="-"THEN5030
5040 IFZ$=CHR$(13)ANDLEN(Y$)=0THEN5090
5050 GS$=Y$:GS=5
5060 POKE214,12:POKE211,10:SYSER:PRINT"                                "
5070 POKE214,12:POKE211,10:SYSER:QB=VAL(GS$)/100:IFQB<0THENPRINT"[156] "QB:GOTO5220
5080 PRINT""QB:GOTO5220
5090 POKE214,14:POKE211,11:SYSER:YZ=8:GOSUB910:IFY$="-"THEN5090
5100 IFZ$=CHR$(13)ANDLEN(Y$)=0THEN5150
5110 GF$=Y$:GF=5:RA=LEN(Y$)
5120 POKE214,14:POKE211,10:SYSER:PRINT"                                "
5130 POKE214,14:POKE211,10:SYSER:QB=VAL(GF$)/100:IFQB<0THENPRINT"[156] "QB:GOTO5220
5140 PRINT""QB:GOTO5220
5150 POKE214,16:POKE211,11:SYSER:YZ=8:GOSUB910:IFY$="-"THEN5150
5160 IFZ$=CHR$(13)ANDLEN(Y$)=0THEN5220
5170 IFVAL(Y$)=0THENPOKE214,16:POKE211,11:PRINT"         ":GOTO5150
5180 GH$=Y$:GH=5:RB=LEN(Y$)
5190 POKE214,16:POKE211,10:SYSER:PRINT"                           "
5200 POKE214,16:POKE211,10:SYSER:QB=VAL(GH$)/100:IFQB<0THENPRINT"[156] "QB:GOTO5220
5210 PRINT""QB
5220 POKE214,23:SYSER:PRINT" RETURN [146][156] MONITOR  D [146][156] DRUCKER  _ [146][156] MENUE"
5230 GETWF$:IFWF$="D"THENDR=5:GOTO5270
5240 IFWF$=CHR$(13)THEN5270
5250 IFWF$="_"THEN5790
5260 GOTO5230
5270 IFDR=5THENOPEN1,4,0:CLOSE1
5280 IFDR=5ANDST=-128THENPRINT"[156][147]DRUCKER IST NICHT EMPFANGSBEREIT."
5290 IFDR=5ANDST=-128THENPRINT"AUSGABE ERFOLGT DAHER AUF IHREM MONITOR"
5300 IFDR=5ANDST=-128THENFORWD=1TO2000:NEXTWD:DR=0
5310 IFDR=5THENCLOSE4:OPEN4,4
5320 IFDR=5THENPRINT#4,"--------------------------------------------"
5330 IFDR=5THENPRINT#4,"TT.MM.JJ  TEXT-KONTENBEWEGUNGEN     BETRAEGE"
5340 IFDR=5THENPRINT#4,"--------------------------------------------"
5350 PRINT"[147][154]AUSWERTUNG "AH$(AH)
5360 PRINT"TEXT-KONTENBEWEGUNG  BETRAEGE  TT.MM.JJ"
5370 PRINT"---------------------------------------"
5380 FORGG=1TOFF
5390 IFGA=5ANDLEFT$(BD$(GG),2)<>GA$THEN5560
5400 IFGB=5ANDMID$(BD$(GG),3,2)<>GB$THEN5560
5410 IFGC=5ANDRIGHT$(BD$(GG),2)<>GC$THEN5560
5420 IFGT=5ANDLEFT$(BT$(GG),GD)<>GT$THEN5560
5430 IFGS=5ANDVAL(BS$(GG))>VAL(GS$)THEN5560
5440 IFGF=5ANDVAL(BS$(GG))<VAL(GF$)THEN5560
5450 IFGH=5AND(BS$(GG))<>GH$THEN5560
5460 BS=VAL(BS$(GG)):SU=SU+BS:RR=RR+1
5470 IFBS<0THENPRINT"[150]"BT$(GG)
5480 IFBS>=0THENPRINT""BT$(GG)
5490 MJ$=BS$(GG):MU=LEN(MJ$):GOSUB2050
5500 POKE211,15:SYSER:PRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)
5510 POKE211,31:SYSER:PRINT"[145]"LEFT$(BD$(GG),2)"."MID$(BD$(GG),3,2)".";
5520 PRINTRIGHT$(BD$(GG),2)
5530 IFDR=5THENGOSUB5810
5540 IFRR=17ANDDR=5THEN5750
5550 IFRR=17THEN5570
5560 NEXTGG
5570 PRINT"[154]---------------------------------------"
5580 IFRR=17THENPRINT"ZWISCHENSUMME":GOTO5600
5590 PRINT"GESAMTSUMME"
5600 PRINTSPC(32)"[145]_[146] ENDE"
5610 IFDR=5THENPRINT#4,"--------------------------------------------"
5620 IFDR=5THENPRINT#4,AH$(AH);:LU=LEN(AH$(AH)):LW=23-LU
5630 IFDR=5ANDSU>=0THENPRINT#4,SPC(LW)"HABEN :";
5640 IFDR=5ANDSU<0THENPRINT#4,SPC(LW)"SOLL : ";
5650 MJ$=STR$(SU):MU=LEN(MJ$):IFSU>=0THENMU=MU-1:MJ$=RIGHT$(MJ$,MU)
5660 IFDR=5THENGOSUB6080
5670 IFDR=5THENPRINT#4,LEFT$(LA$,11)"."RIGHT$(LA$,2)
5680 GOSUB2050:POKE211,15:SYSER:
5690 IFSU>=0THENPRINT"[145]"LEFT$(LA$,11)"."RIGHT$(LA$,2)
5700 IFSU<0THENPRINT"[145][150]"LEFT$(LA$,11)"."RIGHT$(LA$,2)
5710 IFDR=5THENPRINT#4,"--------------------------------------------"
5720 IFDR=5THENPRINT#4:CLOSE4
5730 YU$="":GETYU$:IFYU$=""THEN5730
5740 IFYU$="_"THEN5790
5750 IFRR=17THENPOKE214,4:SYSER:FORTU=1TO20
5760 IFRR=17THENPRINT"                                       ":NEXTTU
5770 IFRR=17THENPOKE214,4:SYSER:RR=0:GOTO5560
5780 GOTO5730
5790 BS=0:SU=0:RR=0:GD=0:GE=0:RA=0:RB=0:GH=0:GF=0:GS=0:GT=0:GC=0:GB=0:GA=0
5800 GA$="":GB$="":GC$="":GT$="":GS$="":GF$="":GH$="":GOTO4750
5810 PRINT#4,LEFT$(BD$(GG),2)"."MID$(BD$(GG),3,2)"."RIGHT$(BD$(GG),2)"  ";
5820 PRINT#4,BT$(GG);:LU=LEN(BT$(GG)):LY=20-LU:MU=LEN(BS$(GG)):MJ$=BS$(GG)
5830 PRINT#4,SPC(LY);:PC=5:GOTO6080
5840 PRINT#4,LEFT$(LA$,11)"."RIGHT$(LA$,2):RETURN
5850 OPEN1,4,0:CLOSE1
5860 IFST=-128THENPRINT"[156][147]   DRUCKER IST NICHT EMPFANGSBEREIT."
5870 IFST=-128THENFORMM=1TO2500:NEXT
5880 IFST=-128THENZK=29:GOTO1680
5890 CLOSE4:OPEN4,4
5900 PRINT#4," --------------------------------------------"
5910 PRINT#4," NR KONTOBEZEICHNUNG    KONTOSTAND  BUCHUNGEN"
5920 PRINT#4," --------------------------------------------"
5930 FORGQ=1TOAD
5940 PRINT#4,GQ;
5950 IFGQ<10THENPRINT#4," ";
5960 PRINT#4,AH$(GQ);:LU=LEN(AH$(GQ)):LY=16-LU:PRINT#4,SPC(LY);
5970 MJ$=AZ$(GQ):MU=LEN(MJ$):GOSUB6080
5980 PRINT#4,LEFT$(LA$,11)"."RIGHT$(LA$,2)"    "BU(GQ)
5990 NEXTGQ
6000 PRINT#4," --------------------------------------------"
6010 PRINT#4," GESAMTSUMME IN DM :";
6020 MJ$=STR$(AY):MU=LEN(MJ$):IFAY>=0THENMU=MU-1:MJ$=RIGHT$(MJ$,MU)
6030 GOSUB6080
6040 PRINT#4,LEFT$(LA$,11)"."RIGHT$(LA$,2);:IFAY<0THENPRINT#4,"    SOLL"
6050 IFAY>=0THENPRINT#4,"    HABEN"
6060 PRINT#4," --------------------------------------------":PRINT#4:CLOSE4
6070 ZK=29:GOTO1680
6080 IFMU=13THENLA$=MJ$
6090 IFMU=12THENLA$=" "+MJ$
6100 IFMU=11THENLA$="  "+MJ$
6110 IFMU=10THENLA$="   "+MJ$
6120 IFMU=9THENLA$="    "+MJ$
6130 IFMU=8THENLA$="     "+MJ$
6140 IFMU=7THENLA$="      "+MJ$
6150 IFMU=6THENLA$="       "+MJ$
6160 IFMU=5THENLA$="        "+MJ$
6170 IFMU=4THENLA$="         "+MJ$
6180 IFMU=1THENLA$="          00"+MJ$
6190 IFLEFT$(MJ$,1)="-"THEN6230
6200 IFMU=3THENLA$="          "+MJ$
6210 IFMU=2THENLA$="          0"+MJ$
6220 GOTO6250
6230 IFMU=2THENLA$="         -00"+RIGHT$(MJ$,1)
6240 IFMU=3THENLA$="         -0"+RIGHT$(MJ$,2)
6250 IFPC=5THENPC=0:GOTO5840
6260 RETURN